﻿Imports BUS
Imports DAO
Imports DTO

Public Class FormDanhSachPhieuThu

    Private Sub FormQuanLyPhieuThu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadDSPhieuThu()
        dgvPhieuThu.ClearSelection()
    End Sub

#Region "Load danh sách phiếu thu"

    Public Sub LoadDSPhieuThu()
        Dim tb As DataTable = PhieuThuTien_BUS.LoadPhieuThu()
        dgvPhieuThu.DataSource = tb

        dgvPhieuThu.Columns(0).HeaderText = "CMND"
        dgvPhieuThu.Columns(1).HeaderText = "Tên khách hàng"
        dgvPhieuThu.Columns(2).HeaderText = "Ngày thu"
        dgvPhieuThu.Columns(3).HeaderText = "Tiền thu"
    End Sub
#End Region

    Private Sub ButtonThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonThoat.Click
        Me.Close()
    End Sub
End Class